home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 090 / pctj8508.arc / TRIG.PLI < prev    next >
Text File  |  1986-09-14  |  896b  |  38 lines
  1. /* procedure trig                                      */
  2. /* translated by Robert Barnes from Pascal version     */
  3.  
  4. trig:proc options(main);
  5.  
  6.    dcl tans(100) float;
  7.    dcl (r,t) bin fixed,
  8.        ch char(1);
  9.  
  10.    put skip edit('starting tangent calculations ..')(skip,a);
  11.    call puttime;
  12.    do t = 1 to 100;
  13.      do r = 1 to 100;
  14.         tans(r)=sin(r)/cos(r);
  15.      end;
  16.    end;
  17.    put edit('..all done!')(skip,a);
  18.    call puttime;
  19.  
  20.  
  21. puttime: procedure;
  22.  
  23. declare gettime    entry(ptr,ptr,ptr,ptr);
  24.     
  25. declare    (hour,min,sec,fraction) fixed(7);
  26.  
  27. call gettime(addr(hour),addr(min),addr(sec),addr(fraction));
  28. put skip list('The time is now ');
  29. put edit(hour,':',min,':',sec,'.',fraction)
  30.         (f(2),a,f(2),a,f(2),a,f(2));
  31.  
  32. end puttime;
  33.  
  34. end trig; 
  35.  
  36.  
  37.  
  38.